home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1998 January / macformat-059.iso / mac / Demos / Martial Arts Demo / media / arts.Dxr / Internal_10.ls < prev    next >
Encoding:
Text File  |  1997-09-30  |  699 b   |  28 lines
  1. on exitFrame
  2.   global backSound, artsRange
  3.   if backSound = 1 then
  4.     puppetSound(2, member 5 of castLib "internal sounds")
  5.   end if
  6.   unloadMember()
  7.   if artsRange < 4 then
  8.     set temp to the memberNum of member ((artsRange * 30) + 101) of castLib "graphics"
  9.     repeat with a = 0 to 8
  10.       preloadMember(member (temp + a) of castLib "graphics")
  11.     end repeat
  12.   end if
  13.   set the loc of sprite 40 to point(320, 240)
  14.   set the loc of sprite 41 to point(320, 240)
  15.   puppetSprite(40, 1)
  16.   puppetSprite(41, 1)
  17.   case 1 of
  18.     (artsRange = 1):
  19.       go("japanese")
  20.     (artsRange = 2):
  21.       go("chinese")
  22.     (artsRange = 3):
  23.       go("korean")
  24.     (artsRange = 4):
  25.       go("other")
  26.   end case
  27. end
  28.